home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Purity
/
Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip
/
Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf
/
Remdiskdrive
/
Remtrackdisk.p
< prev
next >
Wrap
Text File
|
1994-01-17
|
302b
|
19 lines
PROGRAM laufwerklöschen;
Uses exec;
VAR ltask:p_task;
ende:Boolean;
BEGIN
REPEAT
lTask:=Findtask('trackdisk.device');
IF ltask=NIL THEN ende:=TRUE
ELSE
BEGIN
ende:=FALSE
Remtask(ltask);
END;
UNTIL ende;
END.